﻿Imports Microsoft.VisualBasic

Public Class DBProjectSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public ProjectNo As New TableField("ProjectNo", Data.SqlDbType.NVarChar)
    Public ProjectDescAr As New TableField("ProjectDescAr", Data.SqlDbType.NVarChar)
    Public ProjectDescEn As New TableField("ProjectDescEn", Data.SqlDbType.NVarChar)
    Public Level As New TableField("Level", Data.SqlDbType.Float)
    Public isbranch As New TableField("isbranch", Data.SqlDbType.Float)

    Sub New()
        MyBase.StoredProcedureName = "ProjectSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal ProjectNo As String = "", _
                                 Optional ByVal ProjectDescAr As String = "", _
                                 Optional ByVal ProjectDescEn As String = "", _
                                 Optional ByVal Level As String = "", _
                                 Optional ByVal isbranch As String = "") As Object

        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.ProjectNo.SetValue(ProjectNo, MyBase.FieldsArrayList)
        Me.ProjectDescAr.SetValue(ProjectDescAr, MyBase.FieldsArrayList)
        Me.ProjectDescEn.SetValue(ProjectDescEn, MyBase.FieldsArrayList)
        Me.Level.SetValue(Level, MyBase.FieldsArrayList)
        Me.isbranch.SetValue(isbranch, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
